/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / VideoToolbox 4.95.sit / VideoToolbox / VideoToolboxSources / Mean.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 4d 65 61 6e 2e 63 | 00 00 00 00 00 00 00 00 |..Mean.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 00 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 0f 2d 00 | 00 01 7e aa 62 8b b3 aa |......-.|..~.b...|
|00000060| 62 8b b3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |b.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b3 a9 00 00 |........|........|
|00000080| 2f 2a 0d 4d 65 61 6e 2e | 63 0d 09 6d 65 61 6e 3d |/*.Mean.|c..mean=|
|00000090| 4d 65 61 6e 28 78 2c 6e | 2c 26 73 64 29 3b 0d 09 |Mean(x,n|,&sd);..|
|000000a0| 6d 65 61 6e 3d 4d 65 61 | 6e 46 28 78 2c 6e 2c 26 |mean=Mea|nF(x,n,&|
|000000b0| 73 64 29 3b 0d 09 6d 65 | 61 6e 3d 4d 65 61 6e 42 |sd);..me|an=MeanB|
|000000c0| 28 78 2c 6e 2c 26 73 64 | 29 3b 0d 09 6d 65 61 6e |(x,n,&sd|);..mean|
|000000d0| 3d 4d 65 61 6e 55 42 28 | 78 2c 6e 2c 26 73 64 29 |=MeanUB(|x,n,&sd)|
|000000e0| 3b 0d 09 6d 65 61 6e 3d | 4d 65 61 6e 57 28 78 2c |;..mean=|MeanW(x,|
|000000f0| 6e 2c 26 73 64 29 3b 0d | 09 6d 65 61 6e 3d 4d 65 |n,&sd);.|.mean=Me|
|00000100| 61 6e 55 57 28 78 2c 6e | 2c 26 73 64 29 3b 0d 09 |anUW(x,n|,&sd);..|
|00000110| 6d 65 61 6e 3d 4d 65 61 | 6e 4c 28 78 2c 6e 2c 26 |mean=Mea|nL(x,n,&|
|00000120| 73 64 29 3b 0d 09 6d 65 | 61 6e 3d 4d 65 61 6e 55 |sd);..me|an=MeanU|
|00000130| 4c 28 78 2c 6e 2c 26 73 | 64 29 3b 0d 51 75 69 63 |L(x,n,&s|d);.Quic|
|00000140| 6b 6c 79 20 63 6f 6d 70 | 75 74 65 20 6d 65 61 6e |kly comp|ute mean|
|00000150| 20 28 61 6e 64 20 6f 70 | 74 69 6f 6e 61 6c 6c 79 | (and op|tionally|
|00000160| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 64 65 | the sta|ndard de|
|00000170| 76 69 61 74 69 6f 6e 29 | 20 6f 66 20 61 6e 20 61 |viation)| of an a|
|00000180| 72 72 61 79 20 78 5b 5d | 20 6f 66 0d 6e 20 73 61 |rray x[]| of.n sa|
|00000190| 6d 70 6c 65 73 2e 20 54 | 68 65 20 76 61 72 69 6f |mples. T|he vario|
|000001a0| 75 73 20 72 6f 75 74 69 | 6e 65 73 20 64 69 66 66 |us routi|nes diff|
|000001b0| 65 72 20 6f 6e 6c 79 20 | 69 6e 20 74 68 65 20 61 |er only |in the a|
|000001c0| 73 73 75 6d 65 64 20 74 | 79 70 65 20 6f 66 20 78 |ssumed t|ype of x|
|000001d0| 5b 5d 3a 20 64 6f 75 62 | 6c 65 2c 0d 63 68 61 72 |[]: doub|le,.char|
|000001e0| 2c 20 73 68 6f 72 74 2c | 20 6f 72 20 6c 6f 6e 67 |, short,| or long|
|000001f0| 2c 20 65 69 74 68 65 72 | 20 73 69 67 6e 65 64 20 |, either| signed |
|00000200| 6f 72 20 75 6e 73 69 67 | 6e 65 64 2e 20 54 68 65 |or unsig|ned. The|
|00000210| 20 73 74 61 6e 64 61 72 | 64 20 64 65 76 69 61 74 | standar|d deviat|
|00000220| 69 6f 6e 20 69 73 20 63 | 6f 6d 70 75 74 65 64 0d |ion is c|omputed.|
|00000230| 6f 6e 6c 79 20 69 66 20 | 74 68 65 20 6c 61 73 74 |only if |the last|
|00000240| 20 61 72 67 75 6d 65 6e | 74 20 69 73 20 6e 6f 74 | argumen|t is not|
|00000250| 20 4e 55 4c 4c 2e 20 54 | 68 65 20 6c 6f 6f 70 73 | NULL. T|he loops|
|00000260| 20 68 61 76 65 20 62 65 | 65 6e 20 6f 70 74 69 6d | have be|en optim|
|00000270| 69 7a 65 64 0d 74 6f 20 | 64 6f 20 6f 6e 6c 79 20 |ized.to |do only |
|00000280| 6f 6e 65 20 6d 65 6d 6f | 72 79 20 61 63 63 65 73 |one memo|ry acces|
|00000290| 73 20 70 65 72 20 69 74 | 65 72 61 74 69 6f 6e 2e |s per it|eration.|
|000002a0| 0d 0d 48 49 53 54 4f 52 | 59 3a 0d 39 2f 31 36 2f |..HISTOR|Y:.9/16/|
|000002b0| 39 30 09 64 67 70 09 77 | 72 6f 74 65 20 69 74 2e |90.dgp.w|rote it.|
|000002c0| 0d 31 2f 31 30 2f 39 34 | 09 64 67 70 20 61 64 64 |.1/10/94|.dgp add|
|000002d0| 65 64 20 4d 65 61 6e 42 | 20 61 6e 64 20 4d 65 61 |ed MeanB| and Mea|
|000002e0| 6e 55 42 20 74 68 61 74 | 20 6f 70 65 72 61 74 65 |nUB that| operate|
|000002f0| 20 6f 6e 20 61 72 72 61 | 79 73 20 6f 66 20 73 69 | on arra|ys of si|
|00000300| 67 6e 65 64 20 63 68 61 | 72 20 61 6e 64 20 0d 09 |gned cha|r and ..|
|00000310| 09 09 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 2e |..unsign|ed char.|
|00000320| 0d 09 09 09 4f 70 74 69 | 6d 69 7a 65 64 20 74 6f |....Opti|mized to|
|00000330| 20 6d 69 6e 69 6d 69 7a | 65 20 6d 65 6d 6f 72 79 | minimiz|e memory|
|00000340| 20 61 63 63 65 73 73 65 | 73 20 77 68 65 6e 20 63 | accesse|s when c|
|00000350| 6f 6d 70 69 6c 65 64 20 | 62 79 20 54 48 49 4e 4b |ompiled |by THINK|
|00000360| 20 43 20 36 2e 30 31 2e | 0d 31 2f 32 35 2f 39 34 | C 6.01.|.1/25/94|
|00000370| 09 64 67 70 20 61 64 64 | 65 64 20 4d 65 61 6e 57 |.dgp add|ed MeanW|
|00000380| 2c 20 4d 65 61 6e 55 57 | 2c 20 4d 65 61 6e 4c 2c |, MeanUW|, MeanL,|
|00000390| 20 61 6e 64 20 4d 65 61 | 6e 55 4c 2e 0d 2a 2f 0d | and Mea|nUL..*/.|
|000003a0| 23 69 6e 63 6c 75 64 65 | 20 22 56 69 64 65 6f 54 |#include| "VideoT|
|000003b0| 6f 6f 6c 62 6f 78 2e 68 | 22 0d 23 69 6e 63 6c 75 |oolbox.h|".#inclu|
|000003c0| 64 65 20 3c 6d 61 74 68 | 2e 68 3e 0d 64 6f 75 62 |de <math|.h>.doub|
|000003d0| 6c 65 20 4d 65 61 6e 46 | 28 66 6c 6f 61 74 20 78 |le MeanF|(float x|
|000003e0| 5b 5d 2c 6c 6f 6e 67 20 | 6e 2c 64 6f 75 62 6c 65 |[],long |n,double|
|000003f0| 20 2a 73 64 50 74 72 29 | 3b 0d 0d 64 6f 75 62 6c | *sdPtr)|;..doubl|
|00000400| 65 20 4d 65 61 6e 28 64 | 6f 75 62 6c 65 20 78 5b |e Mean(d|ouble x[|
|00000410| 5d 2c 6c 6f 6e 67 20 6e | 2c 64 6f 75 62 6c 65 20 |],long n|,double |
|00000420| 2a 73 64 50 74 72 29 0d | 7b 0d 09 72 65 67 69 73 |*sdPtr).|{..regis|
|00000430| 74 65 72 20 64 6f 75 62 | 6c 65 20 73 3b 0d 09 72 |ter doub|le s;..r|
|00000440| 65 67 69 73 74 65 72 20 | 6c 6f 6e 67 20 69 3b 0d |egister |long i;.|
|00000450| 09 64 6f 75 62 6c 65 20 | 2a 70 3b 0d 0d 09 70 3d |.double |*p;...p=|
|00000460| 78 3b 0d 09 69 66 28 73 | 64 50 74 72 21 3d 4e 55 |x;..if(s|dPtr!=NU|
|00000470| 4c 4c 29 7b 0d 09 09 72 | 65 67 69 73 74 65 72 20 |LL){...r|egister |
|00000480| 64 6f 75 62 6c 65 20 73 | 73 3b 0d 09 09 72 65 67 |double s|s;...reg|
|00000490| 69 73 74 65 72 20 64 6f | 75 62 6c 65 20 78 78 3b |ister do|uble xx;|
|000004a0| 0d 0d 09 09 73 3d 73 73 | 3d 30 2e 30 3b 0d 09 09 |....s=ss|=0.0;...|
|000004b0| 66 6f 72 28 69 3d 6e 3b | 69 3e 30 3b 69 2d 2d 29 |for(i=n;|i>0;i--)|
|000004c0| 7b 0d 09 09 09 73 2b 3d | 78 78 3d 2a 70 2b 2b 3b |{....s+=|xx=*p++;|
|000004d0| 0d 09 09 09 73 73 2b 3d | 78 78 2a 78 78 3b 0d 09 |....ss+=|xx*xx;..|
|000004e0| 09 7d 0d 09 09 73 2f 3d | 6e 3b 0d 09 09 69 66 28 |.}...s/=|n;...if(|
|000004f0| 6e 3e 31 29 2a 73 64 50 | 74 72 3d 73 71 72 74 28 |n>1)*sdP|tr=sqrt(|
|00000500| 28 73 73 2d 6e 2a 73 2a | 73 29 2f 28 6e 2d 31 29 |(ss-n*s*|s)/(n-1)|
|00000510| 29 3b 0d 09 09 65 6c 73 | 65 20 2a 73 64 50 74 72 |);...els|e *sdPtr|
|00000520| 3d 30 3b 0d 09 7d 65 6c | 73 65 7b 0d 09 09 73 3d |=0;..}el|se{...s=|
|00000530| 30 2e 30 3b 0d 09 09 66 | 6f 72 28 69 3d 6e 3b 69 |0.0;...f|or(i=n;i|
|00000540| 3e 30 3b 69 2d 2d 29 20 | 73 2b 3d 2a 70 2b 2b 3b |>0;i--) |s+=*p++;|
|00000550| 0d 09 09 73 2f 3d 6e 3b | 0d 09 7d 0d 09 72 65 74 |...s/=n;|..}..ret|
|00000560| 75 72 6e 20 73 3b 0d 7d | 0d 0d 64 6f 75 62 6c 65 |urn s;.}|..double|
|00000570| 20 4d 65 61 6e 46 28 66 | 6c 6f 61 74 20 78 5b 5d | MeanF(f|loat x[]|
|00000580| 2c 6c 6f 6e 67 20 6e 2c | 64 6f 75 62 6c 65 20 2a |,long n,|double *|
|00000590| 73 64 50 74 72 29 0d 7b | 0d 09 72 65 67 69 73 74 |sdPtr).{|..regist|
|000005a0| 65 72 20 64 6f 75 62 6c | 65 20 73 3b 0d 09 72 65 |er doubl|e s;..re|
|000005b0| 67 69 73 74 65 72 20 6c | 6f 6e 67 20 69 3b 0d 09 |gister l|ong i;..|
|000005c0| 66 6c 6f 61 74 20 2a 70 | 3b 0d 0d 09 70 3d 78 3b |float *p|;...p=x;|
|000005d0| 0d 09 69 66 28 73 64 50 | 74 72 21 3d 4e 55 4c 4c |..if(sdP|tr!=NULL|
|000005e0| 29 7b 0d 09 09 72 65 67 | 69 73 74 65 72 20 64 6f |){...reg|ister do|
|000005f0| 75 62 6c 65 20 73 73 3b | 0d 09 09 72 65 67 69 73 |uble ss;|...regis|
|00000600| 74 65 72 20 64 6f 75 62 | 6c 65 20 78 78 3b 0d 0d |ter doub|le xx;..|
|00000610| 09 09 73 3d 73 73 3d 30 | 2e 30 3b 0d 09 09 66 6f |..s=ss=0|.0;...fo|
|00000620| 72 28 69 3d 6e 3b 69 3e | 30 3b 69 2d 2d 29 7b 0d |r(i=n;i>|0;i--){.|
|00000630| 09 09 09 73 2b 3d 78 78 | 3d 2a 70 2b 2b 3b 0d 09 |...s+=xx|=*p++;..|
|00000640| 09 09 73 73 2b 3d 78 78 | 2a 78 78 3b 0d 09 09 7d |..ss+=xx|*xx;...}|
|00000650| 0d 09 09 73 2f 3d 6e 3b | 0d 09 09 69 66 28 6e 3e |...s/=n;|...if(n>|
|00000660| 31 29 2a 73 64 50 74 72 | 3d 73 71 72 74 28 28 73 |1)*sdPtr|=sqrt((s|
|00000670| 73 2d 6e 2a 73 2a 73 29 | 2f 28 6e 2d 31 29 29 3b |s-n*s*s)|/(n-1));|
|00000680| 0d 09 09 65 6c 73 65 20 | 2a 73 64 50 74 72 3d 30 |...else |*sdPtr=0|
|00000690| 3b 0d 09 7d 65 6c 73 65 | 7b 0d 09 09 73 3d 30 2e |;..}else|{...s=0.|
|000006a0| 30 3b 0d 09 09 66 6f 72 | 28 69 3d 6e 3b 69 3e 30 |0;...for|(i=n;i>0|
|000006b0| 3b 69 2d 2d 29 20 73 2b | 3d 2a 70 2b 2b 3b 0d 09 |;i--) s+|=*p++;..|
|000006c0| 09 73 2f 3d 6e 3b 0d 09 | 7d 0d 09 72 65 74 75 72 |.s/=n;..|}..retur|
|000006d0| 6e 20 73 3b 0d 7d 0d 0d | 64 6f 75 62 6c 65 20 4d |n s;.}..|double M|
|000006e0| 65 61 6e 42 28 63 68 61 | 72 20 78 5b 5d 2c 6c 6f |eanB(cha|r x[],lo|
|000006f0| 6e 67 20 6e 2c 64 6f 75 | 62 6c 65 20 2a 73 64 50 |ng n,dou|ble *sdP|
|00000700| 74 72 29 0d 7b 0d 09 72 | 65 67 69 73 74 65 72 20 |tr).{..r|egister |
|00000710| 64 6f 75 62 6c 65 20 73 | 3b 0d 09 72 65 67 69 73 |double s|;..regis|
|00000720| 74 65 72 20 6c 6f 6e 67 | 20 69 3b 0d 09 72 65 67 |ter long| i;..reg|
|00000730| 69 73 74 65 72 20 63 68 | 61 72 20 2a 70 3b 0d 0d |ister ch|ar *p;..|
|00000740| 09 70 3d 78 3b 0d 09 69 | 66 28 73 64 50 74 72 21 |.p=x;..i|f(sdPtr!|
|00000750| 3d 4e 55 4c 4c 29 7b 0d | 09 09 72 65 67 69 73 74 |=NULL){.|..regist|
|00000760| 65 72 20 64 6f 75 62 6c | 65 20 73 73 3b 0d 09 09 |er doubl|e ss;...|
|00000770| 72 65 67 69 73 74 65 72 | 20 6c 6f 6e 67 20 78 78 |register| long xx|
|00000780| 3b 0d 0d 09 09 73 3d 73 | 73 3d 30 2e 30 3b 0d 09 |;....s=s|s=0.0;..|
|00000790| 09 66 6f 72 28 69 3d 6e | 3b 69 3e 30 3b 69 2d 2d |.for(i=n|;i>0;i--|
|000007a0| 29 7b 0d 09 09 09 73 2b | 3d 78 78 3d 2a 70 2b 2b |){....s+|=xx=*p++|
|000007b0| 3b 0d 09 09 09 73 73 2b | 3d 78 78 2a 78 78 3b 0d |;....ss+|=xx*xx;.|
|000007c0| 09 09 7d 0d 09 09 73 2f | 3d 6e 3b 0d 09 09 69 66 |..}...s/|=n;...if|
|000007d0| 28 6e 3e 31 29 2a 73 64 | 50 74 72 3d 73 71 72 74 |(n>1)*sd|Ptr=sqrt|
|000007e0| 28 28 73 73 2d 6e 2a 73 | 2a 73 29 2f 28 6e 2d 31 |((ss-n*s|*s)/(n-1|
|000007f0| 29 29 3b 0d 09 09 65 6c | 73 65 20 2a 73 64 50 74 |));...el|se *sdPt|
|00000800| 72 3d 30 3b 0d 09 7d 65 | 6c 73 65 7b 0d 09 09 73 |r=0;..}e|lse{...s|
|00000810| 3d 30 2e 30 3b 0d 09 09 | 66 6f 72 28 69 3d 6e 3b |=0.0;...|for(i=n;|
|00000820| 69 3e 30 3b 69 2d 2d 29 | 20 73 2b 3d 2a 70 2b 2b |i>0;i--)| s+=*p++|
|00000830| 3b 0d 09 09 73 2f 3d 6e | 3b 0d 09 7d 0d 09 72 65 |;...s/=n|;..}..re|
|00000840| 74 75 72 6e 20 73 3b 0d | 7d 0d 0d 64 6f 75 62 6c |turn s;.|}..doubl|
|00000850| 65 20 4d 65 61 6e 55 42 | 28 75 6e 73 69 67 6e 65 |e MeanUB|(unsigne|
|00000860| 64 20 63 68 61 72 20 78 | 5b 5d 2c 6c 6f 6e 67 20 |d char x|[],long |
|00000870| 6e 2c 64 6f 75 62 6c 65 | 20 2a 73 64 50 74 72 29 |n,double| *sdPtr)|
|00000880| 0d 7b 0d 09 72 65 67 69 | 73 74 65 72 20 64 6f 75 |.{..regi|ster dou|
|00000890| 62 6c 65 20 73 3b 0d 09 | 72 65 67 69 73 74 65 72 |ble s;..|register|
|000008a0| 20 6c 6f 6e 67 20 69 3b | 0d 09 72 65 67 69 73 74 | long i;|..regist|
|000008b0| 65 72 20 75 6e 73 69 67 | 6e 65 64 20 63 68 61 72 |er unsig|ned char|
|000008c0| 20 2a 70 3b 0d 0d 09 70 | 3d 78 3b 0d 09 69 66 28 | *p;...p|=x;..if(|
|000008d0| 73 64 50 74 72 21 3d 4e | 55 4c 4c 29 7b 0d 09 09 |sdPtr!=N|ULL){...|
|000008e0| 72 65 67 69 73 74 65 72 | 20 64 6f 75 62 6c 65 20 |register| double |
|000008f0| 73 73 3b 0d 09 09 72 65 | 67 69 73 74 65 72 20 6c |ss;...re|gister l|
|00000900| 6f 6e 67 20 78 78 3b 0d | 0d 09 09 73 3d 73 73 3d |ong xx;.|...s=ss=|
|00000910| 30 2e 30 3b 0d 09 09 66 | 6f 72 28 69 3d 6e 3b 69 |0.0;...f|or(i=n;i|
|00000920| 3e 30 3b 69 2d 2d 29 7b | 0d 09 09 09 73 2b 3d 78 |>0;i--){|....s+=x|
|00000930| 78 3d 2a 70 2b 2b 3b 0d | 09 09 09 73 73 2b 3d 78 |x=*p++;.|...ss+=x|
|00000940| 78 2a 78 78 3b 0d 09 09 | 7d 0d 09 09 73 2f 3d 6e |x*xx;...|}...s/=n|
|00000950| 3b 0d 09 09 69 66 28 6e | 3e 31 29 2a 73 64 50 74 |;...if(n|>1)*sdPt|
|00000960| 72 3d 73 71 72 74 28 28 | 73 73 2d 6e 2a 73 2a 73 |r=sqrt((|ss-n*s*s|
|00000970| 29 2f 28 6e 2d 31 29 29 | 3b 0d 09 09 65 6c 73 65 |)/(n-1))|;...else|
|00000980| 20 2a 73 64 50 74 72 3d | 30 3b 0d 09 7d 65 6c 73 | *sdPtr=|0;..}els|
|00000990| 65 7b 0d 09 09 73 3d 30 | 2e 30 3b 0d 09 09 66 6f |e{...s=0|.0;...fo|
|000009a0| 72 28 69 3d 6e 3b 69 3e | 30 3b 69 2d 2d 29 20 73 |r(i=n;i>|0;i--) s|
|000009b0| 2b 3d 2a 70 2b 2b 3b 0d | 09 09 73 2f 3d 6e 3b 0d |+=*p++;.|..s/=n;.|
|000009c0| 09 7d 0d 09 72 65 74 75 | 72 6e 20 73 3b 0d 7d 0d |.}..retu|rn s;.}.|
|000009d0| 0d 64 6f 75 62 6c 65 20 | 4d 65 61 6e 57 28 73 68 |.double |MeanW(sh|
|000009e0| 6f 72 74 20 78 5b 5d 2c | 6c 6f 6e 67 20 6e 2c 64 |ort x[],|long n,d|
|000009f0| 6f 75 62 6c 65 20 2a 73 | 64 50 74 72 29 0d 7b 0d |ouble *s|dPtr).{.|
|00000a00| 09 72 65 67 69 73 74 65 | 72 20 64 6f 75 62 6c 65 |.registe|r double|
|00000a10| 20 73 3b 0d 09 72 65 67 | 69 73 74 65 72 20 6c 6f | s;..reg|ister lo|
|00000a20| 6e 67 20 69 3b 0d 09 72 | 65 67 69 73 74 65 72 20 |ng i;..r|egister |
|00000a30| 73 68 6f 72 74 20 2a 70 | 3b 0d 0d 09 70 3d 78 3b |short *p|;...p=x;|
|00000a40| 0d 09 69 66 28 73 64 50 | 74 72 21 3d 4e 55 4c 4c |..if(sdP|tr!=NULL|
|00000a50| 29 7b 0d 09 09 72 65 67 | 69 73 74 65 72 20 64 6f |){...reg|ister do|
|00000a60| 75 62 6c 65 20 73 73 3b | 0d 09 09 72 65 67 69 73 |uble ss;|...regis|
|00000a70| 74 65 72 20 6c 6f 6e 67 | 20 78 78 3b 0d 0d 09 09 |ter long| xx;....|
|00000a80| 73 3d 73 73 3d 30 2e 30 | 3b 0d 09 09 66 6f 72 28 |s=ss=0.0|;...for(|
|00000a90| 69 3d 6e 3b 69 3e 30 3b | 69 2d 2d 29 7b 0d 09 09 |i=n;i>0;|i--){...|
|00000aa0| 09 73 2b 3d 78 78 3d 2a | 70 2b 2b 3b 0d 09 09 09 |.s+=xx=*|p++;....|
|00000ab0| 73 73 2b 3d 78 78 2a 78 | 78 3b 0d 09 09 7d 0d 09 |ss+=xx*x|x;...}..|
|00000ac0| 09 73 2f 3d 6e 3b 0d 09 | 09 69 66 28 6e 3e 31 29 |.s/=n;..|.if(n>1)|
|00000ad0| 2a 73 64 50 74 72 3d 73 | 71 72 74 28 28 73 73 2d |*sdPtr=s|qrt((ss-|
|00000ae0| 6e 2a 73 2a 73 29 2f 28 | 6e 2d 31 29 29 3b 0d 09 |n*s*s)/(|n-1));..|
|00000af0| 09 65 6c 73 65 20 2a 73 | 64 50 74 72 3d 30 3b 0d |.else *s|dPtr=0;.|
|00000b00| 09 7d 65 6c 73 65 7b 0d | 09 09 73 3d 30 2e 30 3b |.}else{.|..s=0.0;|
|00000b10| 0d 09 09 66 6f 72 28 69 | 3d 6e 3b 69 3e 30 3b 69 |...for(i|=n;i>0;i|
|00000b20| 2d 2d 29 20 73 2b 3d 2a | 70 2b 2b 3b 0d 09 09 73 |--) s+=*|p++;...s|
|00000b30| 2f 3d 6e 3b 0d 09 7d 0d | 09 72 65 74 75 72 6e 20 |/=n;..}.|.return |
|00000b40| 73 3b 0d 7d 0d 0d 64 6f | 75 62 6c 65 20 4d 65 61 |s;.}..do|uble Mea|
|00000b50| 6e 55 57 28 75 6e 73 69 | 67 6e 65 64 20 73 68 6f |nUW(unsi|gned sho|
|00000b60| 72 74 20 78 5b 5d 2c 6c | 6f 6e 67 20 6e 2c 64 6f |rt x[],l|ong n,do|
|00000b70| 75 62 6c 65 20 2a 73 64 | 50 74 72 29 0d 7b 0d 09 |uble *sd|Ptr).{..|
|00000b80| 72 65 67 69 73 74 65 72 | 20 64 6f 75 62 6c 65 20 |register| double |
|00000b90| 73 3b 0d 09 72 65 67 69 | 73 74 65 72 20 6c 6f 6e |s;..regi|ster lon|
|00000ba0| 67 20 69 3b 0d 09 72 65 | 67 69 73 74 65 72 20 75 |g i;..re|gister u|
|00000bb0| 6e 73 69 67 6e 65 64 20 | 73 68 6f 72 74 20 2a 70 |nsigned |short *p|
|00000bc0| 3b 0d 0d 09 70 3d 78 3b | 0d 09 69 66 28 73 64 50 |;...p=x;|..if(sdP|
|00000bd0| 74 72 21 3d 4e 55 4c 4c | 29 7b 0d 09 09 72 65 67 |tr!=NULL|){...reg|
|00000be0| 69 73 74 65 72 20 64 6f | 75 62 6c 65 20 73 73 3b |ister do|uble ss;|
|00000bf0| 0d 09 09 72 65 67 69 73 | 74 65 72 20 75 6e 73 69 |...regis|ter unsi|
|00000c00| 67 6e 65 64 20 6c 6f 6e | 67 20 78 78 3b 0d 0d 09 |gned lon|g xx;...|
|00000c10| 09 73 3d 73 73 3d 30 2e | 30 3b 0d 09 09 66 6f 72 |.s=ss=0.|0;...for|
|00000c20| 28 69 3d 6e 3b 69 3e 30 | 3b 69 2d 2d 29 7b 0d 09 |(i=n;i>0|;i--){..|
|00000c30| 09 09 73 2b 3d 78 78 3d | 2a 70 2b 2b 3b 0d 09 09 |..s+=xx=|*p++;...|
|00000c40| 09 73 73 2b 3d 78 78 2a | 78 78 3b 0d 09 09 7d 0d |.ss+=xx*|xx;...}.|
|00000c50| 09 09 73 2f 3d 6e 3b 0d | 09 09 69 66 28 6e 3e 31 |..s/=n;.|..if(n>1|
|00000c60| 29 2a 73 64 50 74 72 3d | 73 71 72 74 28 28 73 73 |)*sdPtr=|sqrt((ss|
|00000c70| 2d 6e 2a 73 2a 73 29 2f | 28 6e 2d 31 29 29 3b 0d |-n*s*s)/|(n-1));.|
|00000c80| 09 09 65 6c 73 65 20 2a | 73 64 50 74 72 3d 30 3b |..else *|sdPtr=0;|
|00000c90| 0d 09 7d 65 6c 73 65 7b | 0d 09 09 73 3d 30 2e 30 |..}else{|...s=0.0|
|00000ca0| 3b 0d 09 09 66 6f 72 28 | 69 3d 6e 3b 69 3e 30 3b |;...for(|i=n;i>0;|
|00000cb0| 69 2d 2d 29 20 73 2b 3d | 2a 70 2b 2b 3b 0d 09 09 |i--) s+=|*p++;...|
|00000cc0| 73 2f 3d 6e 3b 0d 09 7d | 0d 09 72 65 74 75 72 6e |s/=n;..}|..return|
|00000cd0| 20 73 3b 0d 7d 0d 0d 64 | 6f 75 62 6c 65 20 4d 65 | s;.}..d|ouble Me|
|00000ce0| 61 6e 4c 28 6c 6f 6e 67 | 20 78 5b 5d 2c 6c 6f 6e |anL(long| x[],lon|
|00000cf0| 67 20 6e 2c 64 6f 75 62 | 6c 65 20 2a 73 64 50 74 |g n,doub|le *sdPt|
|00000d00| 72 29 0d 7b 0d 09 72 65 | 67 69 73 74 65 72 20 64 |r).{..re|gister d|
|00000d10| 6f 75 62 6c 65 20 73 3b | 0d 09 72 65 67 69 73 74 |ouble s;|..regist|
|00000d20| 65 72 20 6c 6f 6e 67 20 | 69 3b 0d 09 72 65 67 69 |er long |i;..regi|
|00000d30| 73 74 65 72 20 6c 6f 6e | 67 20 2a 70 3b 0d 0d 09 |ster lon|g *p;...|
|00000d40| 70 3d 78 3b 0d 09 69 66 | 28 73 64 50 74 72 21 3d |p=x;..if|(sdPtr!=|
|00000d50| 4e 55 4c 4c 29 7b 0d 09 | 09 72 65 67 69 73 74 65 |NULL){..|.registe|
|00000d60| 72 20 64 6f 75 62 6c 65 | 20 73 73 2c 78 78 3b 0d |r double| ss,xx;.|
|00000d70| 0d 09 09 73 3d 73 73 3d | 30 2e 30 3b 0d 09 09 66 |...s=ss=|0.0;...f|
|00000d80| 6f 72 28 69 3d 6e 3b 69 | 3e 30 3b 69 2d 2d 29 7b |or(i=n;i|>0;i--){|
|00000d90| 0d 09 09 09 73 2b 3d 78 | 78 3d 2a 70 2b 2b 3b 0d |....s+=x|x=*p++;.|
|00000da0| 09 09 09 73 73 2b 3d 78 | 78 2a 78 78 3b 0d 09 09 |...ss+=x|x*xx;...|
|00000db0| 7d 0d 09 09 73 2f 3d 6e | 3b 0d 09 09 69 66 28 6e |}...s/=n|;...if(n|
|00000dc0| 3e 31 29 2a 73 64 50 74 | 72 3d 73 71 72 74 28 28 |>1)*sdPt|r=sqrt((|
|00000dd0| 73 73 2d 6e 2a 73 2a 73 | 29 2f 28 6e 2d 31 29 29 |ss-n*s*s|)/(n-1))|
|00000de0| 3b 0d 09 09 65 6c 73 65 | 20 2a 73 64 50 74 72 3d |;...else| *sdPtr=|
|00000df0| 30 3b 0d 09 7d 65 6c 73 | 65 7b 0d 09 09 73 3d 30 |0;..}els|e{...s=0|
|00000e00| 2e 30 3b 0d 09 09 66 6f | 72 28 69 3d 6e 3b 69 3e |.0;...fo|r(i=n;i>|
|00000e10| 30 3b 69 2d 2d 29 20 73 | 2b 3d 2a 70 2b 2b 3b 0d |0;i--) s|+=*p++;.|
|00000e20| 09 09 73 2f 3d 6e 3b 0d | 09 7d 0d 09 72 65 74 75 |..s/=n;.|.}..retu|
|00000e30| 72 6e 20 73 3b 0d 7d 0d | 0d 64 6f 75 62 6c 65 20 |rn s;.}.|.double |
|00000e40| 4d 65 61 6e 55 4c 28 75 | 6e 73 69 67 6e 65 64 20 |MeanUL(u|nsigned |
|00000e50| 6c 6f 6e 67 20 78 5b 5d | 2c 6c 6f 6e 67 20 6e 2c |long x[]|,long n,|
|00000e60| 64 6f 75 62 6c 65 20 2a | 73 64 50 74 72 29 0d 7b |double *|sdPtr).{|
|00000e70| 0d 09 72 65 67 69 73 74 | 65 72 20 64 6f 75 62 6c |..regist|er doubl|
|00000e80| 65 20 73 3b 0d 09 72 65 | 67 69 73 74 65 72 20 6c |e s;..re|gister l|
|00000e90| 6f 6e 67 20 69 3b 0d 09 | 72 65 67 69 73 74 65 72 |ong i;..|register|
|00000ea0| 20 75 6e 73 69 67 6e 65 | 64 20 6c 6f 6e 67 20 2a | unsigne|d long *|
|00000eb0| 70 3b 0d 0d 09 70 3d 78 | 3b 0d 09 69 66 28 73 64 |p;...p=x|;..if(sd|
|00000ec0| 50 74 72 21 3d 4e 55 4c | 4c 29 7b 0d 09 09 72 65 |Ptr!=NUL|L){...re|
|00000ed0| 67 69 73 74 65 72 20 64 | 6f 75 62 6c 65 20 73 73 |gister d|ouble ss|
|00000ee0| 2c 78 78 3b 0d 0d 09 09 | 73 3d 73 73 3d 30 2e 30 |,xx;....|s=ss=0.0|
|00000ef0| 3b 0d 09 09 66 6f 72 28 | 69 3d 6e 3b 69 3e 30 3b |;...for(|i=n;i>0;|
|00000f00| 69 2d 2d 29 7b 0d 09 09 | 09 73 2b 3d 78 78 3d 2a |i--){...|.s+=xx=*|
|00000f10| 70 2b 2b 3b 0d 09 09 09 | 73 73 2b 3d 78 78 2a 78 |p++;....|ss+=xx*x|
|00000f20| 78 3b 0d 09 09 7d 0d 09 | 09 73 2f 3d 6e 3b 0d 09 |x;...}..|.s/=n;..|
|00000f30| 09 69 66 28 6e 3e 31 29 | 2a 73 64 50 74 72 3d 73 |.if(n>1)|*sdPtr=s|
|00000f40| 71 72 74 28 28 73 73 2d | 6e 2a 73 2a 73 29 2f 28 |qrt((ss-|n*s*s)/(|
|00000f50| 6e 2d 31 29 29 3b 0d 09 | 09 65 6c 73 65 20 2a 73 |n-1));..|.else *s|
|00000f60| 64 50 74 72 3d 30 3b 0d | 09 7d 65 6c 73 65 7b 0d |dPtr=0;.|.}else{.|
|00000f70| 09 09 73 3d 30 2e 30 3b | 0d 09 09 66 6f 72 28 69 |..s=0.0;|...for(i|
|00000f80| 3d 6e 3b 69 3e 30 3b 69 | 2d 2d 29 20 73 2b 3d 2a |=n;i>0;i|--) s+=*|
|00000f90| 70 2b 2b 3b 0d 09 09 73 | 2f 3d 6e 3b 0d 09 7d 0d |p++;...s|/=n;..}.|
|00000fa0| 09 72 65 74 75 72 6e 20 | 73 3b 0d 7d 0d 00 00 00 |.return |s;.}....|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001010| 00 00 11 86 07 54 72 61 | 70 73 2e 68 02 00 02 00 |.....Tra|ps.h....|
|00001020| 54 45 58 54 4b 41 48 4c | 01 00 00 64 04 20 00 00 |TEXTKAHL|...d. ..|
|00001030| 06 4d 65 61 6e 2e 63 b4 | 02 00 00 00 50 61 72 74 |.Mean.c.|....Part|
|00001040| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 5f b4 |SIT!....|......_.|
|00001050| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 ab bf ee 66 00 00 | 00 00 00 00 01 7e 00 00 |.....f..|.....~..|
|00001080| 00 00 0d 00 00 00 11 86 | 07 54 79 70 65 73 2e 68 |........|.Types.h|
|00001090| 02 00 02 00 54 45 58 54 | 4b 41 48 4c 01 00 00 78 |....TEXT|KAHL...x|
|000010a0| 04 20 00 00 00 00 14 17 | 00 00 00 00 0a b1 00 00 |. ......|........|
|000010b0| 0c 00 00 00 00 00 00 00 | 00 00 00 00 a4 16 39 c0 |........|......9.|
|000010c0| a4 69 8a 91 00 00 00 00 | 00 00 00 00 00 00 00 00 |.i......|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 48 0d 00 02 00 00 |........|..H.....|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 0e 00 | 00 00 11 86 08 56 61 6c |........|.....Val|
|00001100| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 06 | 00 04 00 2a 00 03 01 8d |........|...*....|
|00001130| 02 7d 00 26 00 06 01 8c | 02 7c aa 62 45 c1 00 00 |.}.&....|.|.bE...|
|00001140| 03 4c 00 00 03 4c 00 00 | 00 00 00 00 00 00 01 00 |.L...L..|........|
|00001150| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 a0 1e 10 |...L...L|...2....|
|00001160| 19 b6 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001170| 00 0a 03 ed ff ff 00 00 | 00 00 00 a0 15 ec 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+